test.name <- "matchArgs.2"

f <- function (abcd,wxyz) 10*abcd+wxyz
f0 <- function (abcd,wxyz) abcd

h <- function ()
  {i <- 1000000; while(i != 0) { i <- i - 1 ;  r <- f(1,2)}; f(1,2)}
r<-h()
h <- function ()
  {i <- 1000000; while(i != 0) { i <- i - 1 ;  r <- f(wxyz=2,abcd=1)}; r}
r<-h()

# Commented out until I integrate my ** code
h <- function ()
  {i <- 1000000; while(i != 0) { i <- i - 1 ;  r <- f(wx=2,ab=1)}; r}
r<-h()
h <- function ()
  {i <- 1000000; while(i != 0) { i <- i - 1 ;  r <- f(wx=2,1)}; r}
r<-h()

h <- function ()
  {i <- 3000000; while(i != 0) { i <- i - 1 ;  r <- f0(1,2)}; r}
r<-h()

test.name <- "matchArgs.8"

g <- function (aa,bb,cc,dd,ww=5,xx=6,yy=7,zz=8)
  10*(10*(10*(10*(10*(10*(10*aa+bb)+cc)+dd)+ww)+xx)+yy)+zz
g0 <- function (aa,bb,cc,dd,ww=5,xx=6,yy=7,zz=8) aa

h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-g(1,2,3,4)}; r}
r<-h()
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-g(1,2,3,4,5,6,7,8)}; r}
r<-h()
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-g(ww=5,aa=1,zz=8,bb=2,cc=3,xx=6,yy=7,dd=4)}; r}
r<-h()
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-g(1,2,3,4,ww=5,zz=8,xx=6,yy=7)}; r}
r<-h()
# Commented out until I integrate my ** code
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-g(1,2,3,4,w=5,z=8,x=6,y=7)}; r}
r<-h()

h <- function ()
  {i <- 2000000; while(i != 0) { i <- i - 1 ;  r<-g0(1,2,3,4,5,6,7,8)}; r}
r<-h()

test.name <- "matchArgs.10"

e <- function (aa,bb,cc,dd,ee,vv=5,ww=6,xx=7,yy=8,zz=9)
 10*(10*(10*(10*(10*(10*(10*(10*(10*aa+bb)+cc)+dd)+ee)+vv)+ww)+xx)+yy)+zz

h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-e(0,1,2,3,4)}; r}
r<-h()
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-e(0,1,2,3,4,5,6,7,8,9)}; r}
r<-h()
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-e(vv=5,ww=6,ee=4,aa=0,zz=9,bb=1,cc=2,xx=7,yy=8,dd=3)}; r}
r<-h()
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-e(0,1,2,3,4,xx=7,ww=6,zz=9,vv=5)}; r}
r<-h()
# Commented out until I integrate my ** code
h <- function ()
  {i <- 300000; while(i != 0) { i <- i - 1 ;  r<-e(0,1,2,3,4,x=7,w=6,z=9,v=5)}; r}
r<-h()
